home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / libs / 3dvect39 / kb.asm < prev    next >
Encoding:
Assembly Source File  |  1994-10-30  |  4.1 KB  |  133 lines
  1.          .386p
  2.          jumps
  3. code32   segment para public use32
  4.          assume cs:code32, ds:code32
  5.  
  6. include  pmode.ext
  7.  
  8. public   _kbtbl0, _kbtbl1, _kbchar, _kbshift, _kbhit
  9.  
  10. public   _initkb, _resetkb, _getch, _clearkb
  11.  
  12. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  13. ; DATA
  14. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  15. opmirq1  dd ?                               ; old IRQ1 vektor
  16. ormirq1  dd ?                               ; old real mode IRQ1 vektor
  17.  
  18. _kbtbl0  db 80h dup(0)                      ; non-sticky keyboard table
  19. _kbtbl1  db 80h dup(0)                      ; sticky keyboard table
  20. _kbchar  db ?                               ; last key that was hit
  21. _kbshift db ?                               ; shift states for lask key
  22. _kbhit   db 0                               ; 0=no key hit, 1=key hit available
  23.  
  24. kbrmirqbuf db 21 dup(?)
  25.  
  26. kbxtbl   db 0,14,'1234567890-=',16,15,'qwertyuiop[]',13,0
  27.          db 'asdfghjkl;''`',0,'\zxcvbnm,./',0,'*',0,32,0
  28.          db 1,2,3,4,5,6,7,8,9,10,0,0,19,25,21,'-',23,'5'
  29.          db 24,'+',20,26,22,17,18,0,0,0,11,12,27h dup(0)
  30.          db 0,14,'!@#$%^&*()_+',16,15,'QWERTYUIOP{}',13,0
  31.          db 'ASDFGHJKL:"~',0,'|ZXCVBNM<>?',0,'*',0,32,0
  32.          db 1,2,3,4,5,6,7,8,9,10,0,0,19,25,21,'-',23,'5'
  33.          db 24,'+',20,26,22,17,18,0,0,0,11,12,27h dup(0)
  34. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  35. ;        CODE
  36. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  37.  
  38. ;═════════════════════════════════════════════════════════════════════════════
  39. irq1:
  40.          push eax ebx ds
  41.          mov ds,cs:_seldata
  42.          in al,60h
  43.          movzx ebx,al
  44.          btr ebx,7
  45.          setnc al
  46.          mov _kbtbl0[ebx],al
  47.          or _kbtbl1[ebx],al
  48.          or al,al
  49.          jz short irq1d
  50.          mov ah,_kbtbl0[2ah]
  51.          or ah,_kbtbl0[36h]
  52.          mov bh,ah
  53.          shl bh,7
  54.          add bl,bh
  55.          movzx ebx,bl
  56.          mov al,kbxtbl[ebx]
  57.          or al,al
  58.          jz short irq1d
  59.          mov _kbchar,al
  60.          mov _kbhit,1
  61.          mov al,_kbtbl0[1dh]
  62.          shl al,1
  63.          or al,_kbtbl0[38h]
  64.          shl al,1
  65.          or al,ah
  66.          mov _kbshift,al
  67. irq1d:
  68.          pop ds ebx
  69.          mov al,20h
  70.          out 20h,al
  71.          pop eax
  72.          sti
  73.          iretd
  74.  
  75. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  76. ;        Initialize keyboard handler
  77. ;        Out:
  78. ;          EAX,BX,EDX,EDI - ?
  79. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  80. _initkb:
  81.          mov bl,1
  82.          call _getirqvect
  83.          mov opmirq1,edx
  84.          mov edx,offset irq1
  85.          call _setirqvect
  86.          mov edi,offset kbrmirqbuf
  87.          call _rmpmirqset
  88.          mov ormirq1,eax
  89.          ret
  90.  
  91. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  92. ;        Reset keyboard handler
  93. ;        Out:
  94. ;          EAX,BX,EDX - ?
  95. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  96. _resetkb:
  97.          mov bl,1
  98.          mov eax,ormirq1
  99.          call _rmpmirqfree
  100.          mov edx,opmirq1
  101.          jmp _setirqvect
  102.  
  103. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  104. ;        Get the last character pressed
  105. ;        Out:
  106. ;          AL - case adjusted character
  107. ;          AH - shift state bits: 0=SHIFT, 1=ALT, 2=CTRL
  108. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  109. _getch:
  110.          cmp _kbhit,0
  111.          je _getch
  112.          mov _kbhit,0
  113.          mov ax,word ptr _kbchar
  114.          ret
  115.  
  116. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  117. ;        Clear all kb stuff
  118. ;        Out:
  119. ;          EAX,ECX,EDI - ?
  120. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  121. _clearkb:
  122.          mov edi,offset _kbtbl0
  123.          xor eax,eax
  124.          mov ecx,40h
  125.          rep stosd
  126.          mov _kbshift,0
  127.          mov _kbhit,0
  128.          ret
  129.  
  130. code32   ends
  131.          end
  132.  
  133.